home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 01 New Uploads / SCROLL.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  2.0 KB  |  19 lines
  1. 10 POKE55,128:POKE56,16:CLR:TE=2653:OP=TE+86:V=53248:SYS3067:PRINT"[147][142]"
  2. 15 PRINT"ENTER DEVICE NUMBER OF DRIVE."
  3. 20 D=.:INPUTD:IFD=.THEN95
  4. 25 IFD<4ORD>30THENPRINT"[147]ILLEGAL DEVICE NUMBER":GOTO15
  5. 30 OPEN15,D,15:CLOSE15:IFSTTHENPRINT"[147]DEVICE";D;"[157] NOT PRESENT":GOTO15
  6. 35 PRINT"[147]"
  7. 40 PRINT"ENTER FILENAME OF TEXT FILE."
  8. 45 F$="":INPUTF$:IFF$=""THENPRINT"[147]":GOTO15
  9. 50 OPEN15,D,15:OPEN8,D,8,F$:INPUT#15,J$,O$,H$,N$
  10. 55 IFJ$<>"00"THENPRINT"[147]";J$;",";O$;",";H$;",";N$:CLOSE8:CLOSE15:GOTO40
  11. 60 PRINT"[147][207]NE MOMENT PLEASE..."
  12. 65 SYSTEM:CLOSE15:CLOSE8:IFPEEK(2)=.THEN90
  13. 70 A=14:POKEV+32,A:REM BORDER COL.
  14. 75 A=06:POKEV+33,A:REM BACKGROUND COL.
  15. 80 A=14:POKE150,A:REM FOREGROUND COL.
  16. 85 SYSOP
  17. 90 PRINT"...FILE TOO LARGE   "
  18. 95 PRINT"[142]":POKE56,160:POKE55,.
  19.